home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 139
/
139side3.d64
/
fb- make rel.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-29
|
1KB
|
41 lines
100 rem *******************************
105 rem * this program creates the *
110 rem * relative file or makes it *
115 rem * larger. *
120 rem * by john serafino 12/94 *
125 rem *******************************
130 rem
140 rem "fbs.make-rel.bas"
150 rem
200 print"[147]"chr$(8)chr$(14);
205 dv=peek(186):if(dv<8)or(dv>29)thendv=8
210 poke53280,0:poke53281,0
220 print"[156] [198]ilebase 64 [210]elative [198]ile [205]anager"
230 print"[156] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
240 print"[154][215]arning: [208]lease read the documentation"
250 print"[194][197][198][207][210][197] you attempt to use this program."
260 input"[153][196]o you wish to continue n[157][157][157]";a$
270 if(a$<>"y")and(a$<>"[217]")then:print"[147][208]rogram [200]alted.[151]":end
290 print"[150][197]nter the [212]arget [196]evice [206]umber: ";
300 open1,0:input#1,dv$:close1:print
310 dv=val(dv$):if(dv<8)or(dv>29)then290
315 print"[152][197]nter the maximum number of records that"
316 print"[145][152]you will need. [197]ach record will require"
317 print"one disk block: ";
320 open1,0:input#1,bs$:close1:print:bs=val(bs$):ifbs<200orbs>10000then315
325 print"[195]reate"bs" block [210][197][204] [198]ile on drive"dv
330 input"[158][196]o you wish to continue n[157][157][157]";a$
340 if(a$<>"y")and(a$<>"[217]")then:print"[147][208]rogram [200]alted.[151]":end
400 print"[147][156] [198]ilebase 64 [210]elative [198]ile [205]anager"
420 print"[156] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
430 print" [195]reating [198]ile...
500 [159]15,dv,15:[159]1,dv,2,"0:fbs.database ,l,"[170][199](254):nr[178]bs:[141]1000
510 rh[178][181](nr[173]256):rl[178]nr[171]256[172]rh
520 [152]15,"p"[170][199](96[170]2)[170][199](rl)[170][199](rh)
530 [152]15,"p"[170][199](96[170]2)[170][199](rl)[170][199](rh):[141]1000
540 [152]1,[199](255):[141]1000:[160]1:[141]1000:[160]15
550 [153]"cont str$(NULL)(NULL)val!":[128]
1000 [132]15,en,em$,et,es:
1010 [139]en[177]1[175]en[179][177]50[167][153]"atnn valrror (NULL)ccurred.":[160]1:[160]15:[128]
1020 [142]